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EDIT - PAL 


DECUS Program Library Write-up 


DECUS No. 8-345 


EDIT-PAL is an overlay and addition to provide a coupling 
between Editor DEC-08-ESAB and PAL III Assembler DEc-08- 
ASBI plus listing line numbers and reporting the vacant 
buffer balance. 

Minimum hardware ; A PDP-8 with 8K and an ASR-33. 

Storage Requirements : Field 0, Editor, 0000-1627 

plus buffer 
Field 1, PAL III 

All the normal functions of Editor are retained. PAL III 
operates normally except it can only be addressed via Editor 
and it will not read paper tape. 

Some switch register controls have been moved to avoid con¬ 
flict. 

Loading proceedure : 

Using DEC-08-LBAA-D Binary Loader, 

1. Load Editor DEC-08-ESAB-PBinto Field 0. 

2. Load EDIT-PAL Field 0 section into Field 0. 

3. Load PAL III DEC-08- ASB1-PB into Field 1. / -" r ' 

4. Load EDIT—PAL Field 1 section into Field 1. 

Starting address is that of Editor in Field 0. The operator 
works with Editor, which in turn operates PAL III when so 
instructed. To assemble directly from the Editor buffer: 

1. Load the source listing in the usual way. 

2. There must be a $ at the end in order to get error 
messages from the assembler. 

3. Strike P and carraige return on the ASR 33. The 
computer will stop. 

4. Set SR Bit 9 for PAL III. 

5. Also set SR Bits 0, 1 and 11 according to the normal 
PAL III usage. 

Press CONT. PAL III will assemble directly from the 
Editor buffer and return to Editor in Command Mode 
when the pass is completed. 
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Line number option ; 

When SR Bit 5 is set. Editor will list the line number (octal) 
when following an L,G or S command. The p command automatically 
suppresses line numbers so that they are not punched on tape or 
output to PAL III. 


Request buffer balance ; 

When SR Bit 3 is set while Editor is watching the ASR 33 key¬ 
board, the typer will print the number (octal) of unused words 
remaining in the buffer. 


Switch Register Selections ; 


Bit Number 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


Function, when set 

Pal III, Pass 2 or 3 
Pal III, Pass 1 or 3 
Editor, suppress output 
Editor, type buffer balance 
Start Editor 

Editor, list line numbers 
Editor, compress spaces on input 
Editor, compress spaces on output 
No assignment 
Editor, output to Pal III 
Editor, output to high speed punch 


Editor, input from high speed reader. 
Pal III input and output via high 
speed reader-punch. 

All numbers input to and output from Editor are in OCTAL radix. 











* 


FIELD 00 


0056 

1630 

*56 

/EDIT-PAL T 

16570 16 JUNE 1970 

*114 

1630 

/PERMANENT BEGINNING OF BUFFER 



01 14 

1630 

*1 104 

1 630 

/NEXT LOCATION IN BUFFER 

1104 

5705 


JMP I .+1 

/INSERT IN OUTTAB RTNE 

1 S 05 

1566 


TEST7 


1106 

7640 

*1141 

S7A CLA 


1141 

5742 


JMP I .+1 

/INSERT IN KEYBOARD RTNE 

11 42 

1 600 

*1013 

READIN 


1013 

7000 


7000 

/OCTAL CONSTANTS 

1014 

7700 


7700 


1015 

7770 

*363 

7770 


0363 

5367 


5367 

/JMP .+4 FOR OCTAL RADIX 

• 


*1 72 


0! 72 

1471 

ATYPNUM 

»T YPNU M 

/ADDR LINE # TYPING SUBR 

01 73 

1527 

APUNCL, 

PUNCL 


01 74 

1 532 

ALINST, 

LINST 


0175 

0000 

COUNT, 

*671 

0 


067 1 

4572 

*702 

JMS I ATYPNUM 

/TYPE LINE # 

0702 

5574 

*1217 

JMP I ALINST 

/FROM LIST ROUTINE 

1217 

5573 

*1 240 

JMP I A PUNCL 

/FROM PUNCH ROUTINE 

1240 

5641 


JMP I .+1 

/INSERT IN TSTOUT RTNE 

1241 

1537 


TSTPAL 


1242 

7 700 

*1 443 

SMA CLA 


1443 

1 126 

SPACES, 

TAD Z ECHOSW 

/SPACE READIN 

1444 

7650 


SNA CLA 

/TEST READ MODE 

—J445 
f^44 6 

7404 


OSR 

/BIT6 UP TO COMPRESS SPACES TO 

0270 


AND CON40 

/MASK BIT 6 

1447 

7650 


SNA CLA 


1450 

5506 


JMP I SPCNO 

/PACK - (MOR+4) 

145! 

7040 


CMA 

/SET 1 SPACE 

1452 

3124 

SP2 , 

DC A CNT 


1453 

4452 


JMS I Z READ 1 

/CCHIN) 

1454 

1045 


TAD M240 


1455 

7650 


SNA CLA 


1456 

5252 


JMP SR2 

/IGNORE EXTRA SPACES. 

1457 

1 122 


TAD CHAR 


1460 

3127 


DCA SAVE 

/SAVE NON-SPACE 

1461 

21 24 


ISZ CNT 


1462 

1027 


TAD M27 

/TAB 

1463 

1021 


TAD C240 

/SPACE 

1464 

3122 


DCA CHAR 


1465 

4477 


JMS I Z PACK1 

/CPACBUF) 

1466 

1 127 


TAD SAVE. 


1467 

5507 


JMP I SPCGO 

/SORT - (MOR + 1 ) 

1470 

0040 

CON40, 

0040 

/MASK FOR BIT 6 

1471 

0000 

TYPNUMi, 

0 

/TYPE LINE NUMBERS ON LIST 
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1472 

21 1 7 


ISZ 

Z 0117 

1473 

7 604 


LAS 


1474 

7006 


RTL 


1475 

0373 


AND 

CN4400 

1476 

7750 


SNA 

SPA CLA 

1477 

5671 


JMP 

I TYPNUM 

1500 

1374 


TAD 

MIN3 

1501 

3175 


DCA 

COUNT 

1502 

1 1 12 


TAD 

Z 01 12 

1503 

7006 


RTL 


1504 

7006 


RTL 


1505 

4307 


JMS 

TYPO 

1506 

5671 


JMP 

I TYPNUM 

1507 

0000 

TYPO, 

0 


1510 

7006 

AGAIN, 

RTL 


1511 

7004 


RAL 


1512 

3335 


DCA 

STONUM 

1513 

1335 


TAD 

STONUM 

1514 

0336 


AND 

C0N7 

1515 

1016 


TAD 

7 0016 

1516 

4532 


JMS 

I 1 32 

151 7 

1 335 


TAD 

STONUM 

1520 

2175 


ISZ 

COUNT 

1521 

5310 


JMP 

AGA IN 

1522 

7300 

CLEAR, 

CLA 

CLL 

1523 

1021 


TAD 

21 

1524 

4532 


JMS 

I 132 

1525 

5707 


JMP 

I TYPO 

1526 

7750 


SNA 

SPA CLA 

1527 

1322 

PUNCL, 

TAD 

CLEAR 

1530 

3276 


DCA 

TYPNUM+5 

1531 

5466 


JMP 

I 66 

1532 

1326 

LINST, 

TAD 

. -4 

1533 

3276 


DCA 

TYPNUM+5 

1534 

5420 


JMP 

I 20 

1 535 

0000 

STONUM, 

0 


1536 

0007 

C0N7, 

7 


1537 

7604 

TSTPAL, 

LAS 


1540 

7010 


RAR 


1541 

7012 


RTR 


1542 

7420 


SNL 


1543 

5764 


JMP 

I TST10 

1544 

7200 


CLA 


1545 

1 356 


TAD 

RETURN-2 

1546 

3360 


DCA 

RETURN 

1547 

1 365 


TAD 

PALI 11 

1550 

3132 


DCA 

Z 1 32 

1551 

6213 


C IF 

CDF 1 0 

1552 

5420 


JMP 

I Z 20 

1553 

0000 

GETCHR, 

0 


1554 

6213 


C IF 

CDF 10 

1555 

5212 


JMP 

1412 

1556 

1 357 


TAD 

.+1 

1557 

5753 


JMP 

I GETCHR- 

1560 

0000 

RETURN, 

0 


1561 

3360 


DCA 

. -1 

1562 

5763 


JMP 

I • +1 

1563 

1251 


1251 



/ARGO 

/CHECK SR BIT 5 (TYPE IF SET) 

/ALSO TEST BIT 2 
/TYPING LINE #? 

/NO 

/YES, SET DIGIT COUNTER (-3) 


/GET LINE H CTHSN) 
/TAKE CARE OF LINK 
/AND THOUSANDS DIGIT 
/TYPE 3 DIGIT OCTAL. * 


/POSITION 3 BITS 


/MASK 3 BITS 
/ASCII BASE 260 
/TYPE IT 

/THROUGH? 

/NO 

/YES 

/C240 (ASCII SPACE) 
/TYPE IT 


/ENTER FROM PUNCH ROUTINE 
/OMIT LINE * FROM TAPE 


/RESTORE LINE » OPTION 
/RETURN TO START 
/TEMP STORE LINE * 

/MASK 

/ENTER FROM TSTOUT RTNE 
/TEST BIT 9 FOR PALI I I 

/WORKING PALI I I? 

/NO, GO TEST BIT 10 
/YES, SET RETURN ADDR 


/SET OUTPUT ADDR 
/OUTDEV 

/PAL III IS IN FIELD 1 

/GO START PALI 11 

/OUTPUT SUBR TO SERVE PALI I I 

/TAKE CHAR TO PALI I I 
/1NSTR FOR 1ST RETURN FROM PALI I I 
/USED IN SUBSEQUENT RETURNS 
/PALI I I JUMPS HERE FOR CHAR 
/SET ADDR FOR SUBSEQUENT RETURNS 
/RETURN TO TSTOUT RTNE AFTER 
/STARTING PALITI 
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/ADDR IN TSTOUT RTNE 


1564 

1242 

TST10* 

1242 

1565 

1 553 

PALI 11* 

GETCHR 

1566 

7604 

TEST7 * 

LAS 

1567 

0372 


AND .+3 

1570 

5771 


JMP I .+1 

1571 

1 106 


1 106 

1572 

0020 


0020 

1573 

4400 

CN4400* 

4400 

1574 

7775 

MI N3 * 

-3 



*1600 


1600 

6031 

READ IN* 

KSF 

1601 

5204 


JMP . +3 

1602 

5603 


JMP I .+1 

1603 

1 143 


1 lA3 

1604 

7604 


LAS 

1605 

0225 


AND CN400 

1606 

7650 


SNA CLA 

*607 

5200 


JMP READ IN 

1610 

1014 


TAD Z 14 

161 1 

3175 


DCA Z COUNT 

1612 

1114 


TAD Z 114 

1613 

7041 


CIA 

1614 

1224 


TAD LIMIT 

1615 

7004 


RAL 

1616 

4626 


JMS I ATYPO 

1617 

1024 


TAD Z 24 

1620 

4532 


JMS I Z 132 

1621 

1025 


TAD Z 25 

1622 

4532 


JMS I Z 132 

1623 

5200 


JMP READ IN 

1624 

7777 

LIMIT* 

7777 

1625 

0400 

CN400, 

0400 ' 

1626 

1 507 

ATYPO* 

TYPO 


CHAR=0122 
CNT =0124 
C240 =0021 
ECHOS W=0 1 26 
M240=0045 
M27 =0027 
PACK1 =0077 
READ1=0052 
SAVE=0127 
SPCGO=0107 
SPCNO=0106 


/TEST SR BIT 7 (OUTPUT) 

/IF SET COMPRESS SPACES TO TABS 
/RETURN TO OIJTTAB RTNE 

/MASK FOR BIT 7 
/MASK 


/IF KBRD NOT READY* TEST SR 
/RETURN TO KBRD RTNE 


/TEST FOR BIT 3 (REO BUFF BALANCE) 

/BIT 3 SET? 

/NO* CONTINUE IN LOOP 
/YES SET CNTR TO -4 

/NEXT LOG IN BUFFER 


/SHOVE LINK 
/TYPE OCTAL * 
/CR 

/TYPE IT 
/LF 


/RETURN TO KBRO LOOP 
/ASSUMED BUFFER LIMIT 
/MASK FOR BIT 3 
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AGAIN 

1510 

ALINST 

0174 

APUNCL 

0173 

ATYPNU 

0172 

ATYPO 

1626 

CHAR 

0122 

CLEAR 

1 522 

CNT 

0124 

CN400 

1 625 

CN4400 

1 573 

CON40 

1470 

CON7 

1 536 

COUNT 

0175 

C240 

0021 

EC H OS W 

0126 

GETCHR 

1553 

LIMIT 

1624 

LINST 

1532 

MIN3 

1574 

M240 

0045 

MR 7 

0027 

PACK1 

0077 

PALI 11 

1 565 

PUNCL 

1527 

READ IN 

1600 

READ 1 

0052 

RETURN 

1 560 

SAVE 

0127 

SPACES 

1443 

SPCGO 

0107 

SPCNO 

0106 

SP2 

1452 

STONUM 

1535 

TEST7 

1566 

TSTPAL 

1537 

TST10 

1 564 

TYPNUM 

1471 

TYPO 

1507 




F IELD 

1 



*241 

/ED IT-PAL 

0241 

5642 


JMP I .+1 

02 42 

1 404 

*1401 

DONE 

1401 

6203 


C IF CDF 00 

1402 

5603 


JMP I .+1 

1403 

1 560 


RETURN 

1404 

6203 

DONE, 

C IF CDF 00 

1405 

5522 


JMP I Z 122 


RETURN=1560 


LIII PART T 16570A 16JUNE 1970 

/PASS COMPLETE 

/RETURN TO ED FOR A CHAR 
/<177> RESTART ADOR OF EDITOR 


DONE 1404 
RETURN 1560 
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